perm filename RRR.F4[NEW,LCS] blob sn#349414 filedate 1978-04-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	2	I=RAN(K)*1000
C00003 ENDMK
CāŠ—;
2	I=RAN(K)*1000
	TYPE 1,I
1	FORMAT (I)
	GO TO 2
	END